home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
Xteq X-Setup
/
xqdcXSP-Setup-EN.exe
/
{app}
/
plugins
/
XQ MSO2003 OTL Wunderbar.xpl
< prev
next >
Wrap
Text File
|
2004-02-05
|
2KB
|
62 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="7"
"COUNT"="3"
"UIPATH"="Program Options\Microsoft Office\MS Office 2003\Outlook"
"NAME"="Startup Display"
"VERSION"="1.00"
"LANGUAGE"="VBScript"
"TEXT 1"="Start with email folders display (Default)"
"TEXT 2"="Start with folder list display"
"TEXT 3"="Start with shortcut list display"
"DESCRIPTION 1"="By default, Outlook start with the email folder displays on its left-hand display. "
"DESCRIPTION 2"="With this setting, you can change this so it automatically displays your shortcuts or the folder list when started."
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com/"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
"COMMENT 1"="http://www.slipstick.com/outlook/ol2003/interface.htm"
sPCheck="HKCU\Software\Microsoft\Office\11.0\Outlook\"
sV1="HKCU\Software\Microsoft\Office\11.0\Outlook\Options\WunderBar\BootModule"
Sub Plugin_Initialize
if RegPathExists(sPCheck) then
i=RegReadValue(sV1)
if i=0 or IsEmpty(i) then
SetUIElement 1,true
else
if i=5 then SetUIElement 2,true
if i=6 then SetUIElement 3,true
end if
else
Disable()
end if
END SUB
'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB
'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
b=GetUIElement(1)
if b=true then i=0
b=GetUIElement(2)
if b=true then i=5
b=GetUIElement(3)
if b=true then i=6
if i>0 then
Call RegWriteValue(sV1,i,2)
else
If RegValueExists(sV1) then Call RegDeleteValue(sV1)
end if
END SUB
'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB